home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DOCZ16.ZIP;1 / DOCZ.LIF / GTSA.PRG < prev    next >
Encoding:
Text File  |  1994-04-24  |  3.5 KB  |  118 lines
  1. ***************************************************************************
  2. * proc  GTSA  &&    GTSA.PRG  -   CASE INPUT AND STATUS MODULE
  3. ***************************************************************************
  4.  
  5. ***** DOCZ Header
  6. * .MODULE              gtsa
  7. * .LIBRARY              dsw
  8. * .TYPE                  procedure
  9. * .SYSTEM              msdos
  10. * .AUTHOR              Loren L. Brumbaugh
  11. * .LANGUAGE           dbase
  12. * .APPLICATION       application
  13. * .DESCRIPTION     
  14. *     Assignment tracking sub-menu
  15. * .ARGUMENTS        
  16. *     gtsa with recno,reqno,rushind,daterec,datedue,datecomp
  17. *        
  18. *         && (N) record number
  19. *         && (C) req number
  20. *         && (C) rush indicator
  21. *         && (D) date received
  22. *         && (D) date due
  23. *         && (D) date completed
  24. * .NARRATIVE        
  25. *        gtsa is a sub-menu for tracking personal and time expense.    "recno"
  26. *        is the currently selected record number.    "reqno" is the requisition
  27. *        number.    "rushind" is a flag indicating whether this is a rush order.
  28. *        The other parameters are self-explanatory.
  29. * .RETURNS            
  30. *     nothing
  31. * .ENDOC               END DOCUMENTATION
  32. ********
  33.  
  34. *begin
  35. *close all
  36.  
  37. f_r = .F.                                                     && (L) special flag to indicate from req screen
  38.  
  39. para key3,      ;                                             && (N) record number
  40. reqreq,          ;                                             && (C) req number
  41. reqrush,       ;                                             && (C) rush indicator
  42. reqdrec,       ;                                             && (D) date received
  43. reqddue,       ;                                             && (D) date due
  44. reqdcpl          ;                                             && (D) date completed
  45.  
  46. store .T. to GTSA_ADD,GTSA_KEY,GTSA_FND,gtsa_hel
  47.  
  48. if (pcount() == 6)
  49.      store 0 to key3
  50. endif
  51.  
  52. if (pcount() <> 1)
  53.      store 0 to key3
  54. endif
  55.  
  56. if pcount() == 1
  57.  
  58.      reqreq    = 0
  59.      reqrush = 'Y'
  60.      reqdrec =date()
  61.      reqddue =date()
  62.      reqdcpl =date()
  63.  
  64.      INITSTDOPTS()
  65.  
  66.      delopts(fil_opts1,fil_desc1,list_mode,del_mode,add_mode)  && remove the "list" and "del" option
  67.      InsOpts(fil_opts1,fil_desc1,"More","Display More Options")
  68.      InsOpts(fil_opts2,fil_desc2,"Del","Delete the current Record","Help","Help listing of all Key Assignments for this system")
  69.  
  70.      SET KEY -7 TO
  71.      SET KEY -6 to
  72.  
  73.      if key3 = 0
  74.           FilMaint('BF',procname(),ASNFil,1,3,0,21,79,'B',"",.T.,.T.,.F.)
  75.      else
  76.           FilMaint('FB',procname(),ASNFil,1,3,0,21,79,key3,"",.T.,.T.,.F.)
  77.      endif
  78.  
  79. elseif pcount() == 6 .and. key3 = 0
  80.  
  81.      f_r = .T.                                                 && special flag to indicate from req screen
  82.  
  83.      INITSTDOPTS()
  84.  
  85.      delopts(fil_opts1,fil_desc1,list_mode,del_mode)  && remove the "list" and "del" option
  86.      InsOpts(fil_opts1,fil_desc1,"More","Display More Options")
  87.      InsOpts(fil_opts2,fil_desc2,"Del","Delete the current Record","Help","Help listing of all Key Assignments for this system")
  88.  
  89.      SET KEY -4 TO E_RMK                                  && FUNCTION 5  Job Identification
  90.      SET KEY -7 TO gtsa_job                              && FUNCTION 8  Job Assignments Table
  91.  
  92.      @ 1, 10 say ' Special Assignments A/E Module - Esc to Return to Req '
  93.  
  94.      FilMaint('FB',procname(),ASNFil,1,3,0,21,79,'B',add_mode,.T.,.T.,.F.)
  95.  
  96. elseif pcount() == 0
  97.  
  98.      key3 = 0
  99.  
  100.      SET KEY -4 TO E_RMK                                  && FUNCTION 5  Job Identification
  101.      SET KEY -7 TO gtsa_job                              && FUNCTION 8  Job Assignments Table
  102.  
  103.      INITSTDOPTS()
  104.  
  105.      delopts(fil_opts1,fil_desc1,list_mode,del_mode)  && remove the "list" and "del" option
  106.      InsOpts(fil_opts1,fil_desc1,"Show","Show a listing of all Job Assignments for this REQ number","More","Display More Options")
  107.      InsOpts(fil_opts2,fil_desc2,"Del","Delete the current Record","Jobs","Display pending employee Jobs","Help","Help listing of all Key Assignments for this system")
  108.  
  109.      FilMaint('BF',procname(),ASNFil,1,3,0,21,79,'B',"",.T.,.T.,.F.)
  110.  
  111. endif
  112.  
  113. SET KEY -4 TO
  114. SET KEY -7 TO
  115.  
  116. retu
  117. *end
  118.